Notes

Disk info for cple_Atc_B1_Bomber_Midway_Nukewar.do:

File Name: a2_cple_Atc_B1_Bomber_Midway_Nukewar/cple_Atc_B1_Bomber_Midway_Nukewar.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 90624
Used Space (bytes): 52736
Physical Size (KB): 140
Free Space (KB): 88
Used Space (KB): 51
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 354
Used Sectors: 206
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for cple_Atc_B1_Bomber_Midway_Nukewar.do:

a2_cple_Atc_B1_Bomber_Midway_Nukewar/cple_Atc_B1_Bomber_Midway_Nukewar.do DISK VOLUME #254
* A 008 HELLO
* A 032 B1 BOMBER
* A 032 NUKEWAR
* B 017 ATC
* A 053 MIDWAY
DOS 3.3 format; 90,624 bytes free; 52,736 bytes used.

Text found in cple_Atc_B1_Bomber_Midway_Nukewar.do/B1 BOMBER.bas:

5 N0 = 10:N1 = 20
7 N2 = N0 +N1
9 G$ = ""
10 DIM C$(12),C(10,2),N$(N2),T(N2,3),M$(1)
20 TEXT : CALL -936: VTAB 8: HTAB 10: PRINT "** B1 BOMBER GAME **": PRINT : HTAB 11: PRINT "COPYRIGHT 1980 BY": PRINT : HTAB 14: PRINT "AVALON HILL": HTAB 10: PRINT "MICROCOMPUTER GAMES"
30 FOR I = 1 TO 12: READ C$(I): NEXT
35 DATA AU,EC,EV,PH,NA,AL,CO,ST,RA,SE,AR,BO
40 FOR I = 1 TO N2: READ N$(I),T(I,1),T(I,2): NEXT
45 N$(0) = "THULE AFB":T(0,1) = 0:T(0,2) = 0
50 DATA ARKHANGELSK,8261,5922,ASTRAKHAN',8631,7947,KIYEV,7391,7467,LENINGRAD,7661,6427
51 DATA MOSKVA,7956,6937,MURMANSK,8056,5452,SEVASTOPOL,7506,8152,SVERDLOVSK,9311,6682
52 DATA VOLGOGRAD,8331,7692,YEREVAN,8381,8657
55 DATA DUBOVKA,8350,7650,KHAR'KOV,8850,7450,KONOSHA,8153,6325,LIPETSK,8100,7210
56 DATA OCHAMCHIRA,8060,8400,ODESSA,7230,8050,ONEGA,8147,5976,PECHENGA,7976,5410
57 DATA PINSK,7115,7235,PODOL'SK,7900,7010,PSKOV,7475,6780,ROSTOV,7990,8010
58 DATA SARPA,8515,7930,SYKTYVKAR,8825,6200,TALLINN,7060,6415,TBILISI,8415,8435
59 DATA UKHTA,8960,5925,VINNITSA,7200,7585,VYBORG,7575,6300,YARAN'SK,8575,6740
100 A9 = 25000:A0 = 100:C0 = 10:S = 4500:P = 6:F9 = 0:T = 0:E = 1.75
105 PI = 3.14159265:M$(0) = "SAM":M$(1) = "MIG"
110 X = 5500 + RND(1) *1500:Y = 3500 + RND(1) *1000
120 FOR I = 1 TO N2:T(I,3) = 0: NEXT :A = INT(25000 * RND(1)):A1 = A:R9 = 0
130 C = INT( RND(1) *360):C1 = C:T9 = INT( RND(1) *N0 +1):T8 = 0:F = 18500
140 FOR I = 1 TO 10:C(I,1) = 0: NEXT :F$ = "": FOR I = 1 TO 5
150 F$ = F$ + CHR$( INT( RND(1) *26) +65): NEXT :L9 = .3: VTAB 20
160 PRINT "YOU ARE FLYING A B1 BOMBER OUT OF": PRINT "THULE AFB. YOU ARE IN AN ALERT STATUS": PRINT "ORBITING OVER THE ARCTIC"
165 PRINT : FOR I = 1 TO 6000: NEXT
180 PRINT "***** FLASH *****": PRINT : FLASH : PRINT "HOT WAR HOT WAR HOT WAR": NORMAL : PRINT
185 PRINT "YOUR PRIMARY TARGET IS ";N$(T9): PRINT "YOUR FAIL SAFE CODE IS ";F$: PRINT
200 PRINT "YOUR ALTERNATES ARE:":J = 0: FOR I = 1 TO N0: IF I = T9 THEN 230
210 J = J +1: HTAB ((J -1) *12 +1): PRINT N$(I);: IF J <3 THEN 230
220 J = 0: IF I <9 THEN PRINT
230 NEXT : PRINT : PRINT
240 PRINT "SOVIET DEFENSE COMPLEXES ARE:"
250 J = 0: FOR I = N0 +1 TO N2:J = J +1
260 HTAB ((J -1) *12 +1): PRINT N$(I);: IF J <3 THEN 280
270 J = 0: PRINT
280 NEXT : PRINT : PRINT : PRINT "GOOD LUCK"
290 GOSUB 670: INPUT "COMMAND? ";A$: IF LEN(A$) <2 THEN 310
295 CM = 0
300 FOR I = 1 TO 12: IF LEFT$(A$,2) = C$(I) THEN CM = I
301 NEXT : IF CM >0 THEN 350
310 PRINT "COMMANDS ARE: URSE, TITUDE": PRINT "ATUS, DAR, VIGATOR": PRINT "ARCH, TOPILOT, ASIVE ACTION"
320 PRINT "M, OENIX MISSILE,": PRINT "M BOMB, MB.":T0 = T +3 + INT(5 * RND(1))
330 GOTO 1020
350 ON CM GOTO 430,970,740,820,560,360,380,700,650,610,390,470
360 INPUT "NEW ALTITUDE? ";A1: IF A1 >A9 THEN A1 = A9
361 IF A1 BOMB ARMED.":L9 = 10 *L9: GOTO 370
410 PRINT "WRONG CODE.": GOTO 370
420 PRINT "BOMB ALREADY DROPPED.": GOTO 370
430 PRINT "TIME FOR AUTOPILOT (S,M,H)? ";:A$ = " "
431 GET B$: PRINT B$;: IF ASC(B$) = 13 THEN 439
432 IF ASC(B$) < >8 THEN A$ = A$ +B$
433 IF (( ASC(B$) = 8) AND ( LEN(A$) >1)) THEN A$ = LEFT$(A$, LEN(A$) -1)
434 GOTO 431
439 A$ = A$ +" ":I = 0:J = 0:K = 0
440 IF A$ = " " THEN 460
441 I = VAL(A$): GOSUB 1650: IF A$ = " " THEN 460
450 J = VAL(A$): GOSUB 1650: IF A$ = " " THEN 460
455 K = VAL(A$)
460 I = I *(I >0):J = J *(J >0):K = K *(K >0):T2 = T +I +60 *J +3600 *K: GOTO 1020
470 IF F9 = 2 THEN 420
471 IF F9 = 0 THEN 530
472 INPUT "TARGET? ";A$
480 IF LEN(A$) <2 THEN 540
481 A$ = LEFT$(A$,2): GOSUB 1760: IF ((NN = -1) OR (NN >N0)) THEN 540
490 GOSUB 1710: IF RA >250 THEN 550
491 INPUT "CONFIRM DROP (Y/N): ";A$
500 IF A$ < >"Y" THEN 370
501 FOR I = 1 TO 1500: NEXT : PRINT "";N$(NN);" DESTROYED."
510 L9 = L9/15
520 T8 = NN:S = S +250:A0 = A0 +50:F9 = 2:T0 = T +3 + INT(5 * RND(0)): GOTO 1020
530 PRINT "BOMB NOT ARMED.": GOTO 370
540 PRINT "IMPROPER TARGET.": GOTO 370
550 PRINT N$(NN);" NOT IN RANGE.": GOTO 370
560 INPUT "WHERE TO? ";A$: IF LEN(A$) <2 THEN 600
561 A$ = LEFT$(A$,2)
570 GOSUB 1760: IF NN = -1 THEN 600
580 GOSUB 1710: GOSUB 1600: PRINT N$(NN);" BEARS "; INT(AN *10)/10;"T RANGE "; INT(RA);"KM."
590 T0 = T +40 + INT(41 * RND(1)): GOTO 1020
600 PRINT "NOT ON THE MAP.": GOTO 590
610 I = 0:J = 1E4: FOR NN = N0 +1 TO N2: GOSUB 1710: IF RA >J THEN 640
620 IF T(NN,3) = 2 THEN 640
630 GOSUB 1600: IF ABS(C -AN) >45 AND ABS(C -AN) <315 THEN 640
631 J = RA:I = NN
640 NEXT :NN = I: IF NN >0 THEN 580
641 PRINT "NO COMPLEX FOUND.": GOTO 590
650 PRINT "CONTACTS:": GOSUB 670: IF J = 0 THEN PRINT " NO CONTACTS."
660 T0 = T +5 + INT( RND(1) *11): GOTO 1020
670 J = 0: FOR I = 1 TO 10: IF C(I,1) = 0 THEN 690
671 J = 1
680 PRINT M$((C(I,1) >10));"-";C(I,1);" INTERCEPTS IN ";C(I,2) -T;" SECONDS."
690 NEXT : RETURN
700 PRINT "COURSE "; INT(C);"T SPEED ";S;" KPH": PRINT "ALTITUDE ";A;" M FUEL ";F;" KM"
720 IF F9 < >2 THEN PRINT "PRIMARY TARGET: ";N$(T9)
730 PRINT P;" PHOENIX LEFT.":T0 = T +20 + INT( RND(1) *21): GOTO 1020
740 A1 = 200 + INT(300 * RND(1)): IF RND(1) <.5 THEN A1 = -A1
741 A = A +A1
750 IF A <0 THEN 1470
751 A1 = A:C1 = 60 + INT(60 * RND(1))
760 IF RND(1) >.5 THEN C1 = -C1
761 C = C +C1:C = C +360 *(C <0) -360 *(C >360)
770 C1 = C: FOR I = 1 TO 10: IF C(I,1) = 0 THEN 810
780 J = (8 +2 *(C(I,1) <10))/(C(I,2) -T): IF J >.95 THEN J = .95
790 IF RND(1) >J THEN 810
791 PRINT M$((C(I,1) >10));"-";C(I,1);" LOSES TARGET";
800 IF C(I,1) >10 THEN PRINT " - RETURNS TO BASE";
801 PRINT ".":C(I,1) = 0
810 NEXT :T0 = T +10 + INT(21 * RND(1)): GOTO 1020
820 IF P = 0 THEN 870
821 INPUT "PHOENIX MISSILE ARMED. TARGET? ";A$
830 IF A$ = "" THEN 900
831 IF LEN(A$) <2 THEN 880
832 A$ = LEFT$(A$,2): GOSUB 1760
840 IF NN 200 THEN 890
842 PRINT "PHOENIX AWAY!"
850 PRINT N$(NN);" DEFENSE COMPLEX DESTROYED.":T(NN,3) = 2:P = P -1
860 T0 = T +3 + INT( RND(1) *5): GOTO 1020
870 PRINT "NO MORE MISSILES!": GOTO 860
880 PRINT "INVALID TARGET.": GOTO 860
890 PRINT N$(NN);" OUT OF RANGE.": GOTO 860
900 J = 1E4:K = 0: FOR I = 1 TO 10: IF C(I,1) = 0 THEN 920
910 IF C(I,2) -T >J THEN 920
911 J = C(I,2) -T:K = I
920 NEXT : PRINT "PHOENIX AWAY!":P = P -1: IF K = 0 THEN 960
930 IF J >10 THEN 960
931 IF C(K,1) <10 AND RND(1) >.6 THEN 960
940 IF C(K,1) >10 AND RND(1) >.85 THEN 960
941 PRINT M$((C(K,1) >10));"-";C(K,1);" DESTROYED."
950 C(K,1) = 0: GOTO 860
960 PRINT "MISSED!": GOTO 860
970 FOR I = 1 TO 10: IF C(I,1) = 0 THEN 1010
971 J = E *(.5 +5/(C(I,2) -T))
980 IF J >.97 THEN J = .97
981 IF RND(1) >J THEN 1010
982 PRINT M$((C(I,1) >10));"-";C(I,1);
990 IF C(I,1) >10 THEN PRINT " LOSES TARGET - RETURNS TO BASE."
1000 IF C(I,1) <10 THEN PRINT " SELF DESTRUCTS.";G$
1001 C(I,1) = 0
1010 NEXT :E = E *(.7 +.3 * RND(1)):T0 = T +3 + INT(5 * RND(1)): GOTO 1020
1020 T3 = T0:I9 = 1: IF T0 >T THEN 1060
1021 I9 = 0:T3 = INT( RND(1) *301) +T
1030 FOR I = 1 TO 10: IF C(I,1) = 0 THEN 1050
1031 IF C(I,2) = C(I,2) -10 THEN 1050
1041 IF C(I,2) -10 ABS(A -A1) THEN A = A1
1071 IF A2 < = ABS(A -A1) THEN A = A +A2 * SGN(A1 -A)
1080 IF C2 > ABS(360 *( ABS(C -C1) >180) - ABS(C -C1)) THEN 1100
1090 C = C +C2 * SGN(C1 -C):C = C +360 *(C <0) -360 *(C >360): GOTO 1110
1100 C = C1
1110 X = X +S *T0 * SIN(C *PI/180)/3600
1120 F = F - INT(S *(T3 -T)/3600)
1130 Y = Y -S *T0 * COS(C *PI/180)/3600:T = T3
1140 IF F <0 THEN 1490
1150 DE = 0:CR = 0: FOR I = 1 TO 10: IF (C(I,1) = 0) OR (DE = 1) OR (CR = 1) THEN 1210
1151 IF C(I,2) >T THEN 1200
1160 POKE -16304,0: PRINT "NUCLEAR AIRBURST!":R9 = 1:C(I,1) = 0:I9 = 1: POKE -16303,0
1170 A = A + INT(3000 * RND(1)) * SGN(.5 - RND(1)): IF A <0 THEN CR = 1
1180 A1 = A:F = INT(F * RND(1)):S = INT(S *(.5 +.5 * RND(1)))
1190 IF RND(1) <.15 THEN DE = 1
1191 GOTO 1210
1200 IF C(I,2) >T +10 THEN 1210
1201 PRINT G$;M$((C(I,1) >10));"-";C(I,1);" IN PHOENIX RANGE.":I9 = 1
1210 NEXT : IF CR = 1 THEN 1470
1211 IF DE = 1 THEN 1480
1212 IF F9 = 2 THEN 1270
1220 FOR NN = 1 TO N0: GOSUB 1710: IF RA >250 THEN 1240
1221 IF T(NN,3) < >0 THEN 1240
1230 PRINT G$;N$(NN);" IN BOMB RANGE.":T(NN,3) = 1:I9 = 1
1240 IF T(NN,3) < >1 THEN 1260
1241 IF RA <250 THEN 1260
1250 PRINT N$(NN);" NO LONGER IN BOMB RANGE.":T(NN,3) = 0
1260 NEXT
1270 FOR NN = N0 +1 TO N2: IF T(NN,3) = 2 THEN 1440
1280 IF ABS(X -T(NN,1)) >750 THEN 1440
1290 IF ABS(Y -T(NN,2)) >750 THEN 1440
1291 GOSUB 1710: IF RA >750 THEN 1440
1300 IF RA >200 THEN 1320
1301 IF T(NN,3) = 1 THEN 1320
1302 T(NN,3) = 1
1310 PRINT G$;N$(NN);" BASE IN PHOENIX RANGE.":I9 = 1
1320 IF T(NN,3) < >1 THEN 1340
1321 IF RA <200 THEN 1340
1322 T(NN,3) = 0
1330 PRINT N$(NN);" BASE OUT OF MISSILE RANGE."
1340 IF RND(1) >L9 *(T0/300) *(A ^.125) THEN 1440
1350 J = 0: FOR K = 1 TO 10: IF C(K,1) = 0 THEN J = K
1351 NEXT : IF J = 0 THEN 1440
1360 IF RND(1) >.5 THEN 1380
1370 C(J,1) = INT(9 * RND(1) +1):M = 6500: GOTO 1390
1380 C(J,1) = 21 +2 * INT( RND(1) *7):M = 5000
1390 GOSUB 1600:L = (AN -C) *PI/180
1400 L = SQR(M ^2 -(S * SIN(L)) ^2) + SGN(PI - ABS(L)) * ABS(S * COS(L))
1410 GOSUB 1710:C(J,2) = T + INT((3600 *RA/L) +1)
1420 PRINT G$;N$(NN);" LAUNCHES A ";M$((C(J,1) >10));"-";C(J,1);"."
1430 I9 = 1
1440 NEXT :NN = 0: GOSUB 1600: GOSUB 1710:L = ABS(C -AN)
1450 IF (L <30 OR L >330) AND RA <6500 AND T >2000 THEN 1500
1460 IF I9 = 1 THEN 290
1461 IF I9 < >1 THEN 1020
1470 PRINT "B1 CRASHES INTO HILLSIDE.":R9 = 2: GOTO 1510
1480 PRINT "B1 DESTROYED.":R9 = 2: GOTO 1510
1490 PRINT "B1 RUNS OUT OF FUEL.": GOTO 1470
1500 NN = 0: GOSUB 1710: IF RA T9 THEN PRINT "SECONDARY";
1530 PRINT " TARGET, ";N$(T8);", DESTROYED."
1540 PRINT "DEFENSE COMPLEXES DESTROYED:":J = 0: FOR I = N0 +1 TO N2
1550 IF T(I,3) < >2 THEN 1560
1551 HTAB (5): PRINT N$(I):J = 1
1560 NEXT : IF J = 0 THEN PRINT " NONE"
1570 IF R9 = 1 THEN PRINT "CREW WILL DIE FROM RADIATION EXPOSURE."
1580 IF R9 = 2 THEN PRINT "CREW DEAD."
1590 INPUT "GO AGAIN (Y/N)? ";A$: IF A$ = "Y" THEN 100
1591 END
1600 DX = X -T(NN,1):DY = Y -T(NN,2)
1610 IF DY = 0 THEN 1640
1620 AN = ATN( -DX/DY) *180/PI +180 *(DY <0) +360 *(DX >0) *(DY >0): RETURN
1640 AN = 90 +180 *(DX >0): RETURN
1650 IF LEFT$(A$,1) = "," THEN 1670
1660 A$ = RIGHT$(A$, LEN(A$) -1): IF LEN(A$) >1 THEN 1650
1665 A$ = " "
1670 A$ = RIGHT$(A$, LEN(A$) -1): RETURN
1710 RA = SQR((X -T(NN,1)) ^2 +(Y -T(NN,2)) ^2): RETURN
1760 NN = -1: FOR L = 0 TO N2: IF A$ = LEFT$(N$(L),2) THEN NN = L
1770 NEXT : RETURN

Text found in cple_Atc_B1_Bomber_Midway_Nukewar.do/HELLO.bas:

90 ONERR GOTO 800
100 GOTO 560
110 REM LIST CATALOG
120 CALL HOM
125 PRINT D$;"CATALOG"
130 PRINT : PRINT
140 B = PEEK(37):B = B -2
145 IF B >22 THEN B = 22
155 FOR I = 0 TO 5
165 P = PEEK(T(I) +4)
170 IF P = 160 THEN NEXT I
175 IF P >191 THEN NEXT I
180 T = I +1
190 FOR I = T TO B
195 VTAB (I): HTAB (4): PRINT F$;: HTAB (5): PRINT CHR$(65 +I -T)
200 NEXT I
205 B$ = "RUN"
206 IF B >20 THEN B = B -1
210 VTAB (B +2): HTAB (1): CALL CLR: PRINT B$" ? 1 = "B1$"2 = "B2$"3 = "B3$
215 VTAB (B +3): HTAB (8): PRINT "4 = "B4$"5 = "B5$;: VTAB (B +2): HTAB (5)
235 CALL BEL: GET K$:K = ASC(K$)
240 IF K <49 THEN 235
245 IF K <54 THEN 280
250 IF K <65 THEN 235
255 IF K <(65 +(B +1)) THEN 360
260 GOTO 235
280 IF K = 49 THEN B$ = B1$
285 IF K = 50 THEN B$ = B2$
290 IF K = 51 THEN B$ = B3$
295 IF K = 52 THEN B$ = B4$
300 IF K = 53 THEN 710
305 VTAB (B +2): HTAB (1): CALL CLR: VTAB (B +3): HTAB (1)
310 PRINT " PRESS LETTER YOU WISH TO ";
315 IF K = 51 THEN POKE 50,127: PRINT B$: GOTO 317
316 GOTO 325
317 IF PEEK( -16384) >127 THEN 330
319 CALL BEL: FOR W = 1 TO 72: NEXT W
321 GOTO 317
325 PRINT B$: VTAB (B +3): HTAB (35)
330 CALL BEL: GET K$: POKE 50,255
340 K = ASC(K$)
345 IF K <65 THEN 330
350 IF K >(B +65) THEN 330
360 REM SELECT FILE
370 I = K -66 +T
375 IF B$ = "RUN" OR B$ = "LOAD" THEN 385
380 GOTO 425
385 P = ( PEEK(T(I) +1) -128)
390 IF P <65 THEN GOTO 800
395 IF P = 65 THEN 425
400 IF P = 73 THEN 425
405 IF P = 66 THEN B$ = "B" +B$: GOTO 425
410 IF P = 84 THEN GOTO 800
425 REM READ SCREEN
435 A$ = CHR$(32)
440 FOR J = 7 TO 39
445 P = ( PEEK(T(I) +J) -128)
450 A$ = A$ + CHR$(P)
455 NEXT J
456 VTAB (B +2): HTAB (1): CALL CLR: VTAB (B +3): HTAB (7): PRINT B$;" ";A$
460 PRINT : PRINT D$;B$;A$: GOTO 110
555 REM ***************************
560 DIM T(23)
565 FOR I = 0 TO 23: READ T(I): NEXT I
570 DATA 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000
620 W$ = CHR$(91)
630 E$ = CHR$(93)
640 HOM = -936
645 CLR = -958
650 BEL = -198
660 D$ = CHR$(4)
665 F$ = W$ +" " +E$
670 B1$ = "LOCK "
675 B2$ = "UNLOCK "
680 B3$ = "DELETE"
685 B4$ = "LOAD "
690 B5$ = "EXIT"
700 TEXT : PRINT D$;"NOMON C,I,O"
705 GOTO 120
710 VTAB (24): HTAB (1): CALL CLR: PRINT TAB( 40)" ******END****** "
720 END
800 VTAB (B +1): HTAB (1): CALL CLR
810 VTAB (B +3): HTAB (1): FOR BL = 1 TO 7: CALL BEL: NEXT BL: PRINT " YOU HAVE MADE AN ILLEGAL REQUEST!!! PRESS SPACE BAR TO CONTINUE.";: GET S$
820 CLEAR : GOTO 100

Text found in cple_Atc_B1_Bomber_Midway_Nukewar.do/MIDWAY.bas:

5 TEXT : CALL -936: VTAB 9: PRINT TAB( 10);"** MIDWAY CAMPAIGN **": PRINT : PRINT TAB( 11);"COPYRIGHT 1980 BY": PRINT : PRINT TAB( 14);"AVALON HILL": PRINT TAB( 10);"MICROCOMPUTER GAMES": VTAB 24
6 DIM N$(7),T$(5),D$(4),P$(5),F(5,7),C%(7,9),S%(9,9),W(5),C1(3)
10 FOR I = 0 TO 7: READ N$(I): NEXT : FOR I = 0 TO 5: READ T$(I): NEXT : FOR I = 0 TO 4: READ D$(I): NEXT : FOR I = 0 TO 5: READ P$(I): NEXT
11 DATA AKAGI,KAGA,SORYU,HIRYU,ENTERPRISE,HORNET,YORKTOWN,MIDWAY,CARRIERS,TRANSPORTS,CRUISERS,TF-16,TF-17,MIDWAY,NONE,LIGHT,HEAVY,SUNK,DESTR'D,F4F'S,ZEKES,SBD'S,VALS,TBD'S,KATES
25 PI = .017508848:M$ = "JC67*":G$ = "":J$ = "JAPANESE "
40 J9 = 0:V0 = 0:V1 = 0:T = 720:D = 3
60 FOR I = 0 TO 5: FOR J = 2 TO 7: READ F(I,J): NEXT : NEXT : DATA 0,1,0,25,.1,.02,0,1,0,18,.2,.01,0,1,0,25,.1,.01,0,3,0,25,.1,.06,0,4,0,25,.1,.04,2,5,0,0,.25,.04
80 FOR I = 0 TO 5: READ J,K,L: GOSUB 10000: NEXT : DATA 270,90,525,230,60,560,230,60,560,25,20,380,25,20,380,0,0,0
90 FOR I = 0 TO 7: FOR J = 0 TO 3: READ C%(I,J): NEXT : FOR J = 4 TO 8:C%(I,J) = 0: NEXT : NEXT : DATA 0,21,21,21,0,30,23,30,0,21,21,21,0,21,21,21,3,27,38,14,3,27,35,15,4,25,37,13,5,14,14,10
105 FOR I = 0 TO 5: READ W(I): NEXT : DATA 1.5,1.4,1.3,1.3,1.2,1: FOR I = 0 TO 9:S%(I,9) = -1: NEXT :S6 = .041:S7 = .043
190 DEF FN S(X) = (C%(X,8) >0) +(C%(X,8) > = 60) +(C%(X,8) > = 100)
200 GOSUB 10500: PRINT "TF-16 C";:C = F(3,4): GOSUB 10600: PRINT "TF-17 C";:C = F(4,4): GOSUB 10600: FOR I = 11 TO 0 STEP -1:A$ = " . . . . . . . . . . . . "
230 FOR J = 0 TO 5: IF INT(F(J,1)/100) < >I OR (F(J,2) = 0 AND J <3) THEN 270
235 K = INT(F(J,0)/100) +1: IF K <1 OR K >12 THEN 270
243 K = 2 *K: IF MID$ (A$,K,1) < >"." THEN K = K +1: IF MID$ (A$,K,1) < >" " THEN K = K -2
260 A$ = LEFT$(A$,K -1) + MID$ (M$,F(J,3),1) + MID$ (A$,K +1):L = FRE(I)
270 NEXT : PRINT A$: NEXT : PRINT : GOSUB 10100
300 INPUT "FLEET COMMAND: ";A$: IF A$ = "" THEN A$ = "0"
310 C = ASC(A$): IF C > = 48 AND C < = 57 THEN 1210
315 A$ = LEFT$(A$,1)
320 C = (C = 65) +2 *(C = 77) +3 *(C = 83) +4 *(C = 84) +1: ON C GOTO 340,600,200,500,400
340 PRINT "COMMANDS:": PRINT "T-SET TF COURSE": PRINT "S-STATUS": PRINT "M-MAP": PRINT "A-AIRCRAFT": PRINT "#-PROCEED # HOURS": GOTO 300
400 INPUT "TF #? ";I:I = 3 *(I = 16) +4 *(I = 17): IF I THEN INPUT "COURSE? ";J: IF J > = 0 AND J < = 360 THEN F(I,4) = J *PI: PRINT T$(I);" ON ";:C = F(I,4): GOSUB 10600
410 GOTO 300
500 PRINT TAB( 12);: GOSUB 10500: PRINT TAB( 17);"STATUS": PRINT "CV"; TAB( 16);"ON DECK BELOW DAMAGE": PRINT TAB( 11);"CAP VF VB VT VF VB VT": PRINT : FOR I = 4 TO 7: PRINT N$(I); TAB( 12);
540 C = C%(I,7): GOSUB 10700:C = C%(I,4): GOSUB 10700:C = C%(I,5) -1000 *(C%(I,5) > = 1000): GOSUB 10700:C = C%(I,6): GOSUB 10700: FOR J = 1 TO 3:C = C%(I,J): GOSUB 10700: NEXT :J = FN S(I): IF I = 7 AND J = 3 THEN J = 4
570 PRINT D$(J): IF F(C%(I,0),2) = 2 AND I < >7 AND FN S(I) <3 THEN PRINT " SPOTTED";
580 PRINT : NEXT : PRINT TAB( 10);"CONTACTS": GOSUB 10100: IF L = 0 THEN PRINT "NONE"
595 GOTO 300
600 INPUT "CARRIER? ";A$: IF NOT LEN(A$) THEN 300
605 I = ASC(A$):I = 4 *(I = 69) +5 *(I = 72) +6 *(I = 89) +7 *(I = 77): IF I = 0 THEN 600
611 IF FN S(I) <2 THEN 620
612 PRINT N$(I);: IF FN S(I) = 3 THEN PRINT " DESTROYED."
613 IF FN S(I) = 2 THEN PRINT " CANNOT OPERATE AIRCRAFT."
614 GOTO 600
620 INPUT "AIRCRAFT COMMAND? ";A$: IF LEN(A$) = 0 THEN 300
625 A$ = A$ +" ":A$ = LEFT$(A$,2): IF A$ = "CA" THEN 900
630 IF A$ = "CL" THEN 800
633 A$ = LEFT$(A$,1): IF A$ = "A" THEN 700
640 IF A$ = "L" THEN 1000
650 PRINT "COMMANDS:": PRINT "-FLEET": PRINT "A-ARM": PRINT "L-LAUNCH": PRINT "CA-CAP": PRINT "CL-CLEAR": GOTO 600
700 IF C%(I,4) +C%(I,5) +C%(I,6) >0 THEN PRINT "STRIKE ALREADY ARMING.": GOTO 600
730 PRINT "# OF F4F'S, SBD'S, TBD'S TO SPOT?": INPUT "";J,K,L:J = J *(J >0):K = K *(K >0):L = L *(L >0)
740 IF J >C%(I,1) THEN J = C%(I,1)
745 IF K >C%(I,2) THEN K = C%(I,2)
750 IF L >C%(I,3) THEN L = C%(I,3)
753 IF NOT (J +K +L) THEN 600
755 C%(I,1) = C%(I,1) -J:C%(I,4) = J:C%(I,2) = C%(I,2) -K:C%(I,5) = K +1000:C%(I,3) = C%(I,3) -L:C%(I,6) = L: PRINT N$(I);" STRIKE ARMING.": GOTO 600
800 GOSUB 10200: PRINT N$(I);" DECKS CLEAR.": GOTO 600
900 C%(I,1) = C%(I,1) +C%(I,7):C%(I,7) = 0: INPUT "# OF F4F'S FOR CAP? ";J:J = J *(J >0): IF J >C%(I,1) THEN 930
920 C%(I,7) = J:C%(I,1) = C%(I,1) -J: GOTO 960
930 C%(I,7) = C%(I,1):C%(I,1) = 0:J = J -C%(I,7):C%(I,7) = C%(I,7) +J *(J = C%(I,4)):C%(I,4) = (C%(I,4) -J) *(C%(I,4) >J)
960 PRINT N$(I);" HAS ";C%(I,7);" F4F'S UP FOR CAP.": GOTO 600
1000 IF NOT (C%(I,5) +C%(I,6) >0 AND C%(I,5) <1000) THEN PRINT N$(I);" HAS NO STRIKE ARMED.": GOTO 600
1020 GOSUB 10100: IF L = 0 THEN PRINT "NO TARGETS.": GOTO 600
1030 INPUT "CONTACT NUMBER? ";J: IF J >L OR J <1 THEN 600
1040 J = C1(J):M = J:N = C%(I,0): GOSUB 10800: IF R >200 THEN PRINT "RANGE "; - INT( -R);"NM, OUT OF RANGE.": GOTO 600
1050 L = R *.3: IF I < >7 AND (T +L +L <240 OR T +L +L >1140) THEN PRINT "NIGHT OPS IMPOSSIBLE.": GOTO 600
1070 IF T +L <240 OR T +L >1140 THEN PRINT "NIGHT ATTACKS IMPOSSIBLE.": GOTO 600
1090 M = -1: FOR K = 9 TO 0 STEP -1: IF S%(K,9) <0 THEN M = K
1095 NEXT : IF M = -1 THEN PRINT "TOO MANY STRIKES ALOFT.": GOTO 600
1110 S%(M,0) = C%(I,4):S%(M,2) = C%(I,5):S%(M,4) = C%(I,6):C%(I,4) = 0:C%(I,5) = 0:C%(I,6) = 0:S%(M,6) = J:S%(M,9) = I:S%(M,7) = T +L:S%(M,8) = T +L +L:S%(M,3) = 1:S%(M,5) = 0:S%(M,1) = (S%(M,2)/(S%(M,2) +S%(M,4))) > RND(1)
1150 PRINT N$(I);" STRIKE LAUNCHED.": GOTO 600
1210 T0 = T + INT( VAL(A$) *60):D0 = D +1 *(T0 >1440):T0 = T0 -1440 *(D0 >D): FOR I = 4 TO 7:C%(I,5) = C%(I,5) -1000 *(C%(I,5) > = 1000): NEXT
1300 F9 = 0: FOR M = 1 TO 2:N = 5: GOSUB 10800:F(M,5) = F(M,5) *(R > = 15): IF J9 THEN F(M,4) = 270 *PI:F(M,5) = 18 +7 *(M = 2)
1310 NEXT :M = 0:N = 5: GOSUB 10800: IF R >250 THEN X = 850 -F(0,0):Y = 450 -F(0,1): GOSUB 10900:F(0,4) = A
1330 IF R <100 THEN F(0,4) = F(0,4) +180 *PI
1350 FOR K = 6 TO 4 STEP -1: IF F(C%(K,0),2) >0 AND C%(K,8) <100 THEN X = F(C%(K,0),0) -F(0,0):Y = F(C%(K,0),1) -F(0,1): GOSUB 10900:F(0,4) = A
1360 NEXT : IF J9 >0 THEN F(0,4) = 270 *PI
1400 FOR I = 0 TO 3: IF C%(I,7) = 5 OR FN S(I) >1 THEN 1440
1405 C%(I,7) = C%(I,7) +C%(I,1):C%(I,1) = 0: IF C%(I,7) >4 THEN C%(I,1) = C%(I,7) -5:C%(I,7) = 5: GOTO 1440
1420 C%(I,7) = C%(I,7) +C%(I,4):C%(I,4) = 0: IF C%(I,7) >5 THEN C%(I,4) = C%(I,7) -5:C%(I,7) = 5
1440 NEXT
1500 S9 = 0:A9 = S9:A8 = S9: IF T >1140 THEN 1700
1505 S8 = 0: FOR I = 0 TO 3: IF C%(I,4) +C%(I,5) +C%(I,6) THEN S8 = 1
1510 NEXT : IF NOT S8 THEN 1590
1520 I = 3
1523 I = I +1: IF FN S(I) <2 THEN K = C%(I,0): GOSUB 11000: IF K THEN 1530
1525 IF I <7 THEN 1523
1527 I = 0
1530 IF I THEN 1550
1531 I = 3
1533 I = I +1: IF FN S(I) <3 THEN K = C%(I,0): GOSUB 11000: IF K THEN 1542
1540 IF I <7 THEN 1533
1541 I = 0
1542 IF NOT I THEN K = 5: GOSUB 11000:I = 7 *K
1550 S9 = C%(I,0): IF S9 <5 THEN 1590
1555 I = -1
1560 I = I +1: IF S%(I,6) >4 AND S%(I,9) > -1 AND S%(I,1) > -1 THEN S9 = 0: GOTO 1590
1580 IF I <9 THEN 1560
1590 IF F(3,2) >0 OR F(4,2) >0 THEN A9 = 1
1595 M = 0:N = 5: GOSUB 10800: IF R >235 THEN 1620
1600 L = 60 *R/235: IF T +L > = 240 AND T +L +L < = 1140 THEN A8 = 1: IF C%(3,2) <12 THEN A9 = 1
1620 IF A9 THEN A8 = 0
1700 IF S9 <3 THEN 1770
1705 J = -1
1710 J = J +1: IF S%(J,9) = -1 THEN 1730
1720 IF J <9 THEN 1710
1725 GOTO 1770
1730 S%(J,6) = S9:S%(J,9) = 0:M = 0:N = S9: GOSUB 10800:L = 60 *R/235:S%(J,7) = T +L:S%(J,8) = T +L +L:S%(J,0) = 0:S%(J,2) = 0:S%(J,4) = 0: FOR I = 0 TO 3
1750 IF C%(I,8) <60 THEN S%(J,0) = S%(J,0) +C%(I,4):S%(J,2) = S%(J,2) +C%(I,5):C%(I,4) = 0:C%(I,5) = 0:S%(J,4) = S%(J,4) +C%(I,6):C%(I,6) = 0
1767 NEXT : IF S%(J,2) +S%(J,4) = 0 THEN S%(J,9) = -1
1768 S%(J,3) = 1:S%(J,5) = 0: IF S%(J,9) < > -1 THEN S%(J,1) = (S%(J,2)/(S%(J,2) +S%(J,4))) > RND(1)
1770 FOR I = 0 TO 3: GOSUB 10200: IF FN S(I) >1 THEN 1830
1775 IF A9 THEN C%(I,4) = C%(I,1):C%(I,1) = 0:C%(I,5) = C%(I,2):C%(I,2) = 0:C%(I,6) = C%(I,3):C%(I,3) = 0: GOTO 1820
1790 IF A8 THEN C%(I,4) = INT(C%(I,1)/2):C%(I,5) = INT(C%(I,2)/2):C%(I,6) = INT(C%(I,3)/2):C%(I,1) = C%(I,1) -C%(I,4):C%(I,2) = C%(I,2) -C%(I,5):C%(I,3) = C%(I,3) -C%(I,6)
1820 IF S9 +A8 +A9 = 0 THEN C%(I,7) = C%(I,7) +C%(I,1):C%(I,1) = 0
1830 NEXT :T1 = 30 + INT(30 * RND(1)):T = T +T1: IF T > = T0 AND D = D0 THEN F9 = 1
1910 D = D +(T >1440):T = T -1440 *(T >1440): IF T > = T0 AND D > = D0 THEN F9 = 1
2000 FOR I = 0 TO 4:F(I,0) = F(I,0) +T1 *F(I,5) * SIN(F(I,4))/60:F(I,1) = F(I,1) +T1 *F(I,5) * COS(F(I,4))/60: NEXT : IF T >1140 OR T <240 THEN 2220
2105 P = 1 +2 *(T <300 OR (T >720 AND T <780)): FOR I = 0 TO 2: IF F(I,2) = 2 THEN 2160
2113 IF F(I,5) = 0 THEN F(I,2) = 2
2118 IF (F(I,2) = 1 AND RND(1) >3 *S7) OR ( RND(1) >P *S7 AND F(I,2) = 0) THEN 2160
2125 F(I,2) = F(I,2) +(F(I,2) <2): IF RND(1) < = 3 *S7 THEN F(I,2) = F(I,2) +(F(I,2) <2)
2140 PRINT G$;"PBY SPOTS ";J$;: IF F(I,2) = 1 THEN PRINT "SHIPS";
2151 IF F(I,2) < >1 THEN PRINT T$(I);
2155 PRINT ".":F9 = 1
2160 NEXT : IF F(0,2) = 2 THEN F(0,3) = 2
2170 P = 1 +(T >720 AND T <780): FOR I = 3 TO 4: IF F(I,2) = 2 THEN 2210
2180 IF RND(1)

0 AND RND(1) < = 3 *S6 THEN PRINT G$;G$;J$;"SCOUTS SIGHTED OVER ";T$(I);".":F(I,2) = 2:F9 = 1
2210 NEXT : GOTO 2300
2220 FOR I = 0 TO 4:F(I,2) = 0: NEXT :F(0,3) = 1
2300 F7 = 1: FOR I = 0 TO 9: IF (S%(I,9) = -1) OR (S%(I,7) >T) OR (S%(I,1) = -1) THEN 4000
2310 J = 2 -(S%(I,6) <3): FOR K = 0 TO 4 STEP 2: IF S%(I,K) = 0 THEN S%(I,K +1) = -1
2316 IF RND(1) >.2 THEN 2330
2320 IF S%(I,1) = S%(I,K +1) THEN S%(I,1) = -1
2321 S%(I,K +1) = -1
2330 NEXT : IF J = 2 THEN 2360
2331 FOR K = 0 TO 4 STEP 2: IF S%(I,K) >0 AND S%(I,K +1) = -1 THEN PRINT N$(S%(I,9));" ";P$(J +K -1);" MISS TARGET.": FOR M = 1 TO 100: NEXT :F9 = 1
2350 NEXT
2360 IF S%(I,3) +S%(I,5) = -2 OR S%(I,2) +S%(I,4) = 0 THEN 4000
2365 F(C%(S%(I,9),0),2) = 2:F(S%(I,6),2) = 2: IF F(0,2) = 2 THEN F(0,3) = 2
2380 IF J = 1 THEN PRINT N$(S%(I,9));" ";
2381 IF J = 2 THEN PRINT G$;J$;
2390 PRINT "STRIKE ATTACKING ";T$(S%(I,6));"!":M = 3: GOSUB 11100:F9 = 1:K = -1: IF S%(I,6) = 2 THEN 2420
2405 K = K +1: IF S%(I,6) = C%(K,0) AND C%(K,8) <100 THEN 2600
2411 IF K <7 THEN 2405
2420 PRINT "ON THE WAY IN,": GOSUB 10300: FOR K = 2 TO 4 STEP 2: IF S%(I,K) = 0 OR S%(I,K +1) = -1 THEN 2520
2440 PRINT S%(I,K);" ";P$(J +K -1);" ATTACK ";T$(S%(I,6));"!":M = 1: GOSUB 11100:E = F(S%(I,6),6) *(1 -.25 *(K = 4) *(1 +(J = 1))):H = 0:N = 0: FOR L = 1 TO S%(I,K):R = RND(1): IF R = E) THEN N = N +1
2471 NEXT : PRINT P$(J +K -1);" MAKE ";H;" HITS";: IF K < >2 AND S%(I,6) < >5 THEN PRINT ".":M = 1: GOSUB 11100: GOTO 2500
2495 PRINT " AND ";N;" NEAR MISSES.":M = 1: GOSUB 11100
2500 V = (16 +8 *(K = 4 AND S%(I,6) < >5)) *H +3 *N: PRINT V;" VICTORY POINTS AWARDED.":M = 3: GOSUB 11100:V0 = V0 +V *(J = 1):V1 = V1 +V *(J = 2)
2520 NEXT : PRINT "ON THE WAY OUT,": GOSUB 10300: GOTO 3950
2600 C = 0: FOR K = 0 TO 7: IF C%(K,0) = S%(I,6) THEN C = C +C%(K,7):C%(K,7) = 0
2620 NEXT : IF NOT C THEN 2790
2625 K = 2 *( RND(1) >.5) +2: IF S%(I,K +1) = -1 OR S%(I,K) = 0 THEN K = 2 +2 *(K = 2)
2631 IF J = 1 AND F7 = 0 THEN K = 4
2632 IF K = 4 THEN F7 = 0
2640 IF S%(I,K +1) = -1 OR S%(I,K) = 0 THEN 2781
2650 PRINT "CAP ATTACKS ";P$(J +K -1);".":M = 1: GOSUB 11100:L1 = S%(I,0) *(S%(I,1) = S%(I,K +1)): IF L1 >0 THEN PRINT P$(J -1);" DEFEND ";P$(J +K -1);"."
2671 M = 1: GOSUB 11100:E = (C *W(J -1))/(L1 *W((J = 1)) +S%(I,K) *W(K +(J = 1))):E = E *(E <.85) +.85 *(E > = .85):H = 0: FOR L = 1 TO S%(I,K): IF RND(1) = .85):H = 0: FOR L = 1 TO C:H = H +( RND(1) = .85):H = 0: FOR L = 1 TO L1:H = H +( RND(1) C%(L,0) OR C%(L,8) > = 60 THEN 2783
2784 C%(L,7) = C%(L,7) +1: NEXT : IF NOT (S%(I,3) +1 AND S%(I,2) OR S%(I,5) +1 AND S%(I,4)) THEN 3950
2790 PRINT "ON THE WAY IN,": GOSUB 10300: FOR K = 4 TO 2 STEP -2: IF S%(I,K) = 0 OR S%(I,K +1) = -1 THEN 2940
2810 M = 0: FOR L = 0 TO 7:C%(L,9) = 0:M = M +(C%(L,8) <100 AND C%(L,0) = S%(I,6)): NEXT : IF NOT M THEN 2940
2825 O = -1: FOR N = 1 TO M
2827 O = (O +1) *(O <7): IF C%(O,0) < >S%(I,6) OR C%(O,8) = 100 THEN 2827
2830 C%(O,9) = INT((S%(I,K) +M -N)/M): NEXT : FOR L = 0 TO 7: IF C%(L,9) = 0 THEN 2930
2850 PRINT C%(L,9);" ";P$(J +K -1);" ATTACK ";N$(L);".":M = 1: GOSUB 11100:N = 0:H = 0:E = .2 -(K = 4) *.06 *(J = 1):L1 = 0: FOR M = 1 TO C%(L,9):R = RND(1): IF R > = E THEN 2880
2875 PRINT G$;"HIT! ";:H = H +1:L1 = L1 +1: GOTO 2890
2880 IF R <2 *E AND (K < >4 OR L = 7) THEN PRINT G$;"NEAR MISS ";:L1 = L1 +2:N = N +1
2890 IF L1 >5 THEN PRINT
2892 L1 = L1 *(L1 <6): NEXT : IF L1 THEN PRINT
2895 PRINT N$(L);" TAKES ";H;" HITS";: IF N >0 THEN PRINT " AND ";N;" NEAR MISSES";
2903 PRINT ".":M = 3: GOSUB 11100: IF NOT (H +N) THEN 2930
2906 D7 = H +N >0 AND C%(L,4) +C%(L,5) +C%(L,6) >0 AND (K = 2 OR L = 7)
2907 IF D7 THEN PRINT G$;"EXPLOSIONS ON ";N$(L);"!"
2910 D8 = 16 *(1 +D7 +.5 *(K = 4 AND L < >7)): FOR M = 1 TO H: GOSUB 10400: NEXT :D8 = 3 *(1 +2 *D7): FOR M = 1 TO N: GOSUB 10400: NEXT
2930 NEXT
2940 NEXT : PRINT "ON THE WAY OUT,": GOSUB 10300
3950 FOR K = 0 TO 4 STEP 2:S%(I,K +1) = -1: NEXT
4000 NEXT
4100 FOR L = 0 TO 7: IF C%(L,8) <10 OR C%(L,8) = 100 THEN 4150
4110 IF RND(1) >.05 *(1 +(L <4)) THEN 4130
4120 PRINT G$;"EXPLOSION ON ";N$(L);"!":M = 1: GOSUB 11100
4125 D8% = 16: GOSUB 10400
4130 IF C%(L,8) = 100 OR RND(1) >.2 *(1 +(L >3)) THEN 4150
4140 C%(L,8) = C%(L,8) -5 * RND(1):C%(L,8) = C%(L,8) *(C%(L,8) >0)
4150 NEXT
5000 V2 = 0: FOR J = 0 TO 9: IF S%(J,9) = -1 THEN 5220
5005 V2 = 1: IF T 60 THEN 5050
5020 PRINT "STRIKE LANDING ON ";N$(I);".":M = 1: GOSUB 11100: GOSUB 10200:C%(I,1) = C%(I,1) +S%(J,0):C%(I,2) = C%(I,2) +S%(J,2):C%(I,3) = C%(I,3) +S%(J,4): GOTO 5210
5050 IF I <4 AND (C%(4,8) < = 60 OR C%(5,8) < = 60) THEN K = 4 +(I = 4): GOTO 5110
5060 K = 3
5061 K = K +1: IF C%(K,8) < = 60 THEN M = C%(I,0):N = C%(K,0): GOSUB 10800: IF R <100 THEN 5100
5070 IF K <7 THEN 5061
5080 PRINT G$;N$(I);" STRIKE SPLASHES.":M = 1: GOSUB 11100: GOTO 5210
5100 IF RND(1) >.8 THEN 5080
5110 PRINT N$(I);" STRIKE DIVERTED TO ";N$(K);".":M = 1: GOSUB 11100:I = K: GOTO 5020
5120 L = 0: FOR I = 0 TO 3: IF FN S(I) <2 THEN L = L +1
5125 NEXT : IF NOT L THEN 5210
5130 FOR I = 0 TO 3: GOSUB 10200: NEXT : FOR K = 0 TO 4 STEP 2:M = -1: FOR I = 1 TO L
5140 M = (M +1) *(M <3): IF FN S(M) >1 THEN 5140
5150 C%(M,1 +K/2) = C%(M,1 +K/2) + INT((L +S%(J,K) -I)/L): NEXT : NEXT : FOR I = 0 TO 3
5180 IF C%(I,1) +C%(I,2) +C%(I,3) <96 THEN 5200
5185 C%(I,1) = C%(I,1) -(C%(I,1) >0):C%(I,2) = C%(I,2) -(C%(I,2) >0):C%(I,3) = C%(I,3) -(C%(I,3) >0): GOTO 5180
5200 NEXT
5210 S%(J,9) = -1
5220 NEXT
6000 I = -1
6001 I = I +1: IF C%(I,8) < = 60 THEN 6010
6005 IF I <3 THEN 6001
6007 J9 = 1
6010 IF V2 = 1 THEN 6050
6015 IF J9 = 1 AND F(0,0) <0 THEN 7000
6020 I = -1
6021 I = I +1: IF C%(I,8) <100 THEN 6030
6025 IF I <3 THEN 6021
6026 GOTO 7000
6030 IF F(3,0) >1200 OR F(4,0) >1200 THEN 7000
6035 I = 3
6036 I = I +1: IF C%(I,8) <100 THEN 6050
6040 IF I <7 THEN 6036
6045 GOTO 7000
6050 IF F9 THEN 200
6060 GOTO 1300
7000 PRINT G$;G$;G$;"THE GAME IS OVER.": PRINT "REPORT:":V2 = 0:V3 = 0:P = 0: PRINT "CV"; TAB( 12);"DAMAGE STATUS": FOR I = 0 TO 3: PRINT N$(I); TAB( 13);D$( FN S(I)): FOR J = 1 TO 7:P = P +C%(I,J): NEXT :S = FN S(I)
7040 V2 = V2 +100 *(S = 1) +300 *(S = 2) +1000 *(S >2): NEXT :P1 = P:P = 0: FOR I = 4 TO 7: PRINT N$(I); TAB( 13);D$( FN S(I) +((I = 7) AND ( FN S(I) = 3))): FOR J = 1 TO 7:P = P +C%(I,J): NEXT :S = FN S(I)
7070 V3 = V3 +100 *(S = 1) +300 *(S = 2) +1000 *(S >2): NEXT :P1 = 272 -P1: PRINT J$;"LOST ";P1;" PLANES.":V2 = V2 +5 *P1:P = 269 -P: PRINT "US LOST ";P;" PLANES.":V3 = V3 +5 *P
7100 PRINT "US HAD ";V0;: GOSUB 11200: PRINT "JAPS HAD ";V1;: GOSUB 11200: PRINT T$(5);" HAS ";: IF J9 THEN PRINT "NOT ";
7130 PRINT "FALLEN.": IF J9 = 0 THEN V3 = V3 +1000
7140 V0 = V0 +V2:V1 = V1 +V3:V = V0 -V1: IF V <0 THEN PRINT J$;
7152 IF V > = 0 THEN PRINT "US ";
7154 V = ABS(V):A$ = "MARGINAL": IF V > = 1000 THEN A$ = "TACTICAL"
7156 IF V > = 2000 THEN A$ = "STRATEGIC"
7170 PRINT A$;" VICTORY.": RESTORE : INPUT "GO AGAIN (Y/N)? ";A$: IF A$ = "Y" THEN 10
7240 STOP
10000 L = L +175 * RND(1) +200 * RND(1) *(I <3):J = (J +K * RND(1)) *PI:F(I,0) = 850 +L * SIN(J) *(I < >5):F(I,1) = 450 +L * COS(J) *(I < >5): IF I <3 THEN 10020
10013 IF F(I,0) >1199 THEN F(I,0) = 1199
10014 IF F(I,1) >1199 THEN F(I,1) = 1199
10020 J = J +180 *PI -360 *PI *(J >180 *PI): IF I <3 THEN F(I,4) = J
10040 IF I > = 3 THEN F(I,4) = 205 *PI *(I < >5)
10050 RETURN
10100 L = 0: FOR K = 0 TO 2: IF F(K,2) = 0 THEN 10140
10105 L = L +1: PRINT "CONTACT ";L;" AT POSITION ";: PRINT INT(F(K,0)/100) +1;" "; INT(F(K,1)/100) +1;: IF F(K,2) = 2 THEN PRINT " ";T$(K);
10130 PRINT :C1(L) = K
10140 NEXT : RETURN
10200 C%(I,5) = C%(I,5) -1000 *(C%(I,5) > = 1000):C%(I,1) = C%(I,1) +C%(I,4):C%(I,4) = 0:C%(I,2) = C%(I,2) +C%(I,5):C%(I,5) = 0:C%(I,3) = C%(I,3) +C%(I,6):C%(I,6) = 0: RETURN
10300 FOR K = 0 TO 4 STEP 2: IF S%(I,K) = 0 OR S%(I,K +1) = -1 THEN 10340
10310 E = F(S%(I,6),7) *(.4 *(K = 0) +.7 *(K = 2) +(K = 4)):H = 0: FOR L = 1 TO S%(I,K):H = H +( RND(1) = 100 THEN RETURN
10410 D9 = RND(1) *D8: IF L = 7 THEN D9 = D9/3
10412 D9 = D9 *(1 +(L = 8)): IF NOT (K = 2 OR L = 7 OR RND(1) <.5) THEN 10431
10415 FOR L1 = 1 TO (6 +(T <240 OR T >1140)): IF C%(L,L1) = 0 THEN 10430
10420 FOR L2 = 1 TO C%(L,L1): IF RND(1) 235 THEN K = 0
11010 L = R *60/235: IF T +L <240 OR T +L +L >1140 THEN K = 0
11020 K = K >0: RETURN
11100 FOR M1 = 1 TO M: FOR M2 = 1 TO 1000: NEXT : NEXT : RETURN
11200 PRINT " POINTS IN OTHER HITS.": RETURN